This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.
Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.
tmp <- dat[dat$date>=max(dat$date)-20,]
tmp <- aggregate(tmp$new, by=tmp[c("area")], FUN=function(x) sum(x, na.rm=TRUE))
fig <- plot_ly() %>%
add_trace(
type="choropleth",
geojson=geojson,
locations=tmp$area,
z=tmp$x,
zmin=0,
zmax=30,
colorscale="Viridis",
featureidkey="properties.Name"
) %>%
layout(
geo = g
)
fig
Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.
When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).
The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBhbiBbUiBNYXJrZG93bl0oaHR0cDovL3JtYXJrZG93bi5yc3R1ZGlvLmNvbSkgTm90ZWJvb2suIFdoZW4geW91IGV4ZWN1dGUgY29kZSB3aXRoaW4gdGhlIG5vdGVib29rLCB0aGUgcmVzdWx0cyBhcHBlYXIgYmVuZWF0aCB0aGUgY29kZS4gCgpUcnkgZXhlY3V0aW5nIHRoaXMgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpSdW4qIGJ1dHRvbiB3aXRoaW4gdGhlIGNodW5rIG9yIGJ5IHBsYWNpbmcgeW91ciBjdXJzb3IgaW5zaWRlIGl0IGFuZCBwcmVzc2luZyAqQ3RybCtTaGlmdCtFbnRlciouIAoKYGBge3J9CmxpYnJhcnkoT3Bhc25ldFV0aWxzKQpsaWJyYXJ5KHBsb3RseSkKCiNQYWtldHRpIGRhdGFuIGVkaXRvaW1pc2VlbiBqYSB2aXN1YWxpc29pbnRpaW4KIGxpYnJhcnkodGlkeXZlcnNlKQogCiNQYWtldHRpIGRhdGFuIGx1a2VtaXNlZW4KbGlicmFyeShqc29ubGl0ZSkKbGlicmFyeShyanNvbikKIAojTHVldGFhbiBhaW5laXN0byBzaXPDpMOkbgphaW5laXN0byA8LSBmcm9tSlNPTigiaHR0cHM6Ly9zYW1wby50aGwuZmkvcGl2b3QvcHJvZC9maS9lcGlyYXBvL2NvdmlkMTljYXNlL2ZhY3RfZXBpcmFwb19jb3ZpZDE5Y2FzZS5qc29uP3Jvdz1kYXRld2VlazIwMjAwMTAxMjAyMDEyMzEtNDQzNjg2JmNvbHVtbj1oY2RtdW5pY2lwYWxpdHkyMDIwLTQ0NTIyMiIpCgpkYXQgPC0gcmVhZC5jc3YoImh0dHBzOi8vc2FtcG8udGhsLmZpL3Bpdm90L3Byb2QvZmkvZXBpcmFwby9jb3ZpZDE5Y2FzZS9mYWN0X2VwaXJhcG9fY292aWQxOWNhc2UuY3N2P3Jvdz1kYXRld2VlazIwMjAwMTAxMjAyMDEyMzEtNDQzNjg2JnJvdz1oY2RtdW5pY2lwYWxpdHkyMDIwLTQ0NTIyMiZjb2x1bW49bWVhc3VyZS0xNDEwODIiLCBzZXA9IjsiKQoKZGF0IDwtIHJlYWQuY3N2KCJodHRwczovL3NhbXBvLnRobC5maS9waXZvdC9wcm9kL2ZpL2VwaXJhcG8vY292aWQxOWNhc2UvZmFjdF9lcGlyYXBvX2NvdmlkMTljYXNlLmNzdj9yb3c9ZGF0ZXdlZWsyMDIwMDEwMTIwMjAxMjMxLTQ0MzY4NiZyb3c9aGNkbXVuaWNpcGFsaXR5MjAyMC00NDUxMzEmY29sdW1uPW1lYXN1cmUtMTQxMDgyIiwgc2VwPSI7IikKCm1ldGEgPC0gcmVhZExpbmVzKCJodHRwczovL3NhbXBvLnRobC5maS9waXZvdC9wcm9kL2ZpL2VwaXJhcG8vY292aWQxOWNhc2UvZmFjdF9lcGlyYXBvX2NvdmlkMTljYXNlLmRpbWVuc2lvbnMuanNvbiIpCgojUGFrZXR0aSBkYXRhbiBsdWtlbWlzZWVuCmxpYnJhcnkoanNvbmxpdGUpCmxpYnJhcnkocmpzb24pCgpkYXQgPC0ganNvbmxpdGU6OmZyb21KU09OKCJodHRwczovL3BsdXMueWxlLmZpL2xhbWJkYV9zaGVldHMva29yb25hLzIwMjAtMDQtbXVuaWNpcGFsaXRpZXMtaW5mZWN0aW9ucy1jdW11bGF0aXZlL2RhdGEuanNvbiIpCmRhdCA8LSBhcy5kYXRhLmZyYW1lKGRhdCRkYXRhKQpkYXQkZGF0ZSA8LSBhcy5EYXRlKGRhdCRkYXRlLCBmb3JtYXQ9IiVkLiVtLiVZIikKZGF0JGN1bXVsYXRpdmVbZGF0JGN1bXVsYXRpdmU9PSIuLiJdIDwtIDAKZGF0JGN1bXVsYXRpdmUgPC0gYXMubnVtZXJpYyhhcy5jaGFyYWN0ZXIoZGF0JGN1bXVsYXRpdmUpKQpkYXQkbmV3IDwtIGFzLm51bWVyaWMoYXMuY2hhcmFjdGVyKGRhdCRuZXcpKQpkYXQkcGVyaHVuZHJlZHRob3VzYW5kIDwtIGFzLm51bWVyaWMoYXMuY2hhcmFjdGVyKGRhdCRwZXJodW5kcmVkdGhvdXNhbmQpKQoKZ2VvanNvbiA8LSByanNvbjo6ZnJvbUpTT04oZmlsZT0iaHR0cHM6Ly9naXRodWIuY29tL3RlZWxtby9nZW9kYXRhL3Jhdy9tYXN0ZXIvZ2VvanNvbi9LdW50YXJhamF0JTIwMjAxNy5nZW9qc29uIikKCmcgPC0gbGlzdCgKICBmaXRib3VuZHMgPSAiZ2VvanNvbiIsCiAgcHJvamVjdGlvbj0iYWxiZXJzIiwKICB2aXNpYmxlID0gRkFMU0UKKQoKIyMjIEthcnR0YSBrYWlraXN0YSByYXBvcnRvaWR1aXN0YSB0YXBhdWtzaXN0YQoKdG1wIDwtIGRhdFtkYXQkZGF0ZT09bWF4KGRhdCRkYXRlKSxdCmZpZyA8LSBwbG90X2x5KCkgJT4lCiAgIGFkZF90cmFjZSgKICAgIHR5cGU9ImNob3JvcGxldGgiLAogICAgZ2VvanNvbj1nZW9qc29uLAogICAgbG9jYXRpb25zPXRtcCRhcmVhLAogICAgej10bXAkY3VtdWxhdGl2ZSwKICAgIHptaW49MCwKICAgIHptYXg9NTAsCiAgICBjb2xvcnNjYWxlPSJWaXJpZGlzIiwKICAgIGZlYXR1cmVpZGtleT0icHJvcGVydGllcy5OYW1lIgogICkgJT4lCiAgbGF5b3V0KAogICAgZ2VvID0gZwogICkKZmlnCgpwdXNoSW5kaWNhdG9yR3JhcGgoZmlnLCAzOTUpCgojIyMgS2FydHRhIHRhcnR1dHRhdmlzdGEgKGVsaSB2aWltZWlzdGVuIDIwIHDDpGl2w6RuIHRhcGF1a3Npc3RhKQoKdG1wIDwtIGRhdFtkYXQkZGF0ZT49bWF4KGRhdCRkYXRlKS0yMCxdCnRtcCA8LSBhZ2dyZWdhdGUodG1wJG5ldywgYnk9dG1wW2MoImFyZWEiKV0sIEZVTj1mdW5jdGlvbih4KSBzdW0oeCwgbmEucm09VFJVRSkpCmZpZyA8LSBwbG90X2x5KCkgJT4lCiAgIGFkZF90cmFjZSgKICAgIHR5cGU9ImNob3JvcGxldGgiLAogICAgZ2VvanNvbj1nZW9qc29uLAogICAgbG9jYXRpb25zPXRtcCRhcmVhLAogICAgej10bXAkeCwKICAgIHptaW49MCwKICAgIHptYXg9MzAsCiAgICBjb2xvcnNjYWxlPSJWaXJpZGlzIiwKICAgIGZlYXR1cmVpZGtleT0icHJvcGVydGllcy5OYW1lIgogICkgJT4lCiAgbGF5b3V0KAogICAgZ2VvID0gZwogICkKZmlnCgojIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIwoKdXJsIDwtICdodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcGxvdGx5L2RhdGFzZXRzL21hc3Rlci9nZW9qc29uLWNvdW50aWVzLWZpcHMuanNvbicKY291bnRpZXMgPC0gcmpzb246OmZyb21KU09OKGZpbGU9dXJsKQp1cmwyPC0gImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9wbG90bHkvZGF0YXNldHMvbWFzdGVyL2ZpcHMtdW5lbXAtMTYuY3N2IgpkZiA8LSByZWFkLmNzdih1cmwyLCBjb2xDbGFzc2VzPWMoZmlwcz0iY2hhcmFjdGVyIikpCmcgPC0gbGlzdCgKICBzY29wZSA9ICd1c2EnLAogIHByb2plY3Rpb24gPSBsaXN0KHR5cGUgPSAnYWxiZXJzIHVzYScpLAogIHNob3dsYWtlcyA9IFRSVUUsCiAgbGFrZWNvbG9yID0gdG9SR0IoJ3doaXRlJykKKQpmaWcgPC0gcGxvdF9seSgpCmZpZyA8LSBmaWcgJT4lIGFkZF90cmFjZSgKICAgIHR5cGU9ImNob3JvcGxldGgiLAogICAgZ2VvanNvbj1jb3VudGllcywKICAgIGxvY2F0aW9ucz1kZiRmaXBzLAogICAgej1kZiR1bmVtcCwKICAgIGNvbG9yc2NhbGU9IlZpcmlkaXMiLAogICAgem1pbj0wLAogICAgem1heD0xMiwKICAgIG1hcmtlcj1saXN0KGxpbmU9bGlzdCgKICAgICAgd2lkdGg9MCkKICAgICkKICApCmZpZyA8LSBmaWcgJT4lIGNvbG9yYmFyKHRpdGxlID0gIlVuZW1wbG95bWVudCBSYXRlICglKSIpCmZpZyA8LSBmaWcgJT4lIGxheW91dCgKICAgIHRpdGxlID0gIjIwMTYgVVMgVW5lbXBsb3ltZW50IGJ5IENvdW50eSIKKQoKZmlnIDwtIGZpZyAlPiUgbGF5b3V0KAogICAgZ2VvID0gZwogICkKCmZpZwoKIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIwoKc2hwIDwtIHN1YnN0cihtZXRhW2dyZXAoIlNIUCIsbWV0YSktMV0sOCwxMykKZGF5IDwtIHN1YnN0cihtZXRhW2dyZXAoJzoid2VlayInLG1ldGEpLTJdLDgsMTMpCgpsMSA8LSAiaHR0cHM6Ly9zYW1wby50aGwuZmkvcGl2b3QvcHJvZC9maS9lcGlyYXBvL2NvdmlkMTljYXNlL2ZhY3RfZXBpcmFwb19jb3ZpZDE5Y2FzZS5jc3Y/cm93PWRhdGV3ZWVrMjAyMDAxMDEyMDIwMTIzMS0iCmwxaiA8LSAiaHR0cHM6Ly9zYW1wby50aGwuZmkvcGl2b3QvcHJvZC9maS9lcGlyYXBvL2NvdmlkMTljYXNlL2ZhY3RfZXBpcmFwb19jb3ZpZDE5Y2FzZS5qc29uP3Jvdz1kYXRld2VlazIwMjAwMTAxMjAyMDEyMzEtIgpsMiA8LSAiJnJvdz1oY2RtdW5pY2lwYWxpdHkyMDIwLSIKbDMgPC0gIiZjb2x1bW49bWVhc3VyZS0xNDEwODIiCgpvdXQgPC0gZGF0YS5mcmFtZSgpCmZvcihpIGluIHNocCkgewogICBmb3IoaiBpbiBkYXkpIHsKICAgICAgb3V0IDwtIHJiaW5kKG91dCwgcmVhZC5jc3YocGFzdGUwKGwxLCBqLCBsMiwgaSwgbDMpLHNlcD0iOyIpKQogICB9Cn0Kb3V0IDwtIGRhdGEuZnJhbWUoKQpmb3IoaSBpbiBzaHApIHsKICAgZm9yKGogaW4gIjQ0MzY4NiIpIHsKICAgICAgb3V0IDwtIHJiaW5kKG91dCwgcmVhZC5jc3YocGFzdGUwKGwxLCBqLCBsMiwgaSwgbDMpLHNlcD0iOyIpKQogICB9Cn0KZGF0IDwtIG91dApkYXQkdmFsIDwtIGFzLm51bWVyaWMoYXMuY2hhcmFjdGVyKGRhdCR2YWwpKQpkYXQgPC0gbmEub21pdChkYXQpCmRhdCRUaW1lIDwtIGFzLm51bWVyaWMoc3Vic3RyKGRhdCRBaWthLDE5LDIwKSkKZGF0JERheSA8LSBhcy5EYXRlKGRhdCRBaWthKQoKbGlicmFyeShnZ3Bsb3QyKSAKbGlicmFyeShwbG90bHkpCgpwbG90X2x5KGRhdFtkYXQkTWl0dGFyaT09IlRhcGF1c3RlbiBsdWt1bcOkw6Ryw6QiLF0sIHg9flRpbWUsIHk9fnZhbCwgY29sb3I9fkFsdWUsIHR5cGU9InNjYXR0ZXIiLCBtb2RlPSJtYXJrZXJzJmxpbmVzIikgJT4lIAogICBsYXlvdXQodGl0bGU9IlRhcGF1c3RlbiBsdWt1bcOkw6Ryw6QiKQoKZ2dwbG90KGRhdFtkYXQkTWl0dGFyaT09IlRhcGF1c3RlbiBsdWt1bcOkw6Ryw6QiICYgIWdyZXBsKCJTSFAiLGRhdCRBbHVlKSxdLCBhZXMoeD1UaW1lLCB5PXZhbCxjb2xvdXI9QWx1ZSkpK2dlb21fbGluZSgpK2ZhY2V0X3dyYXAofk1pdHRhcmkpCgpnZ3Bsb3QoZGF0W2RhdCRNaXR0YXJpPT0iVGFwYXVzdGVuIGx1a3Vtw6TDpHLDpCIsXSwgYWVzKHg9RGF5LCB5PXZhbCxjb2xvdXI9QWx1ZSkpK2dlb21fbGluZSgpK2ZhY2V0X3dyYXAofk1pdHRhcmkpCgoKdG1wIDwtIGRhdGEuZnJhbWUodmFsdWU9dW5saXN0KGFpbmVpc3RvJGRhdGFzZXQkdmFsdWUpKQp0bXAkdmFsdWUgPC0gYXMubnVtZXJpYyh0bXAkdmFsdWUpCnRtcCA8LSByb3duYW1lc190b19jb2x1bW4odG1wKQoKdG1wIDwtIG1lcmdlKGRhdGEuZnJhbWUocm93bmFtZT0xOnByb2QoYWluZWlzdG8kZGF0YXNldCRkaW1lbnNpb24kc2l6ZSkpLHRtcCxhbGw9VFJVRSkKCnRtcCA8LSBtYXRyaXgodG1wJHZhbHVlLG5yb3c9YWluZWlzdG8kZGF0YXNldCRkaW1lbnNpb24kc2l6ZVsyXSwgZGltbmFtZXM9bGlzdCgKdW5saXN0KGFpbmVpc3RvJGRhdGFzZXQkZGltZW5zaW9uJGhjZG11bmljaXBhbGl0eTIwMjAkY2F0ZWdvcnkkbGFiZWwpLAp1bmxpc3QoYWluZWlzdG8kZGF0YXNldCRkaW1lbnNpb24kZGF0ZXdlZWsyMDIwMDEwMTIwMjAxMjMxJGNhdGVnb3J5JGxhYmVsKQopKQoKI3B1cmV0YWFuIGthdGVnb3JpYXQgcGFsb2lrc2kKIHRtcCA8LSBhaW5laXN0byRkYXRhc2V0JGRpbWVuc2lvbiRkYXRld2VlazIwMjAwMTAxMjAyMDEyMzEkY2F0ZWdvcnkKIGxhYmVsIDwtIGRhdGEuZnJhbWUoCiAgIGxhYmVsPXVubGlzdCh0bXAkbGFiZWwpLAogICBpbmRleD11bmxpc3QodG1wJGluZGV4KSwKICAgbGFiZWxuYW1lPXVubGlzdChuYW1lcyh0bXAkbGFiZWwpKSwKICAgaW5kZXhuYW1lPXVubGlzdChuYW1lcyh0bXAkbGFiZWwpKQogICkKICAKICNOaW1ldMOkw6RuIHBhbGFzZXQKIG5hbWVzKGxhYmVsKTwtImxhYmVsIgogbmFtZXMoaW5kZXgpPC0iaW5kZXgiCiAgCiAjTGFpdGV0YW5hIHZpZWzDpCByaXZpbnVtZXJvdCBzYXJha2tlaWtzaSwgam90dGEgbsOkbcOkIHNhYWRhYW4geWh0ZWVuLgogbGFiZWw8LXJvd25hbWVzX3RvX2NvbHVtbihsYWJlbCkKIGluZGV4PC1yb3duYW1lc190b19jb2x1bW4oaW5kZXgpCiAgCiAjWWhkaXN0ZXTDpMOkbiByaXZpbmltZcOkIGvDpHl0dMOkZW4KIGthdGVnb3JpYXQgPC0gaW5kZXggJT4lIGxlZnRfam9pbihsYWJlbCxieT0icm93bmFtZSIpCiAKICNvdGV0YWFuIGRhdGEKIGRhdGEgPC0gYXMuZGF0YS5mcmFtZSh1bmxpc3QoYWluZWlzdG8kZGF0YXNldCR2YWx1ZSkpCiAKICNOaW1ldMOkw6RuCiBuYW1lcyhkYXRhKTwtIlRhcGF1a3NpZW4gbGttIgogZGF0YTwtcm93bmFtZXNfdG9fY29sdW1uKGRhdGEpCiBkYXRhJHJvd25hbWU8LWFzLm51bWVyaWMoZGF0YSRyb3duYW1lKQogCiNZaGRpc3RldMOkw6RuIG11dWh1biBhaW5laXN0b29uCiBkYXRhc2V0IDwtIGthdGVnb3JpYXQgJT4lIGxlZnRfam9pbihkYXRhLGJ5PWMoImluZGV4Ij0icm93bmFtZSIpKQpgYGAKCkFkZCBhIG5ldyBjaHVuayBieSBjbGlja2luZyB0aGUgKkluc2VydCBDaHVuayogYnV0dG9uIG9uIHRoZSB0b29sYmFyIG9yIGJ5IHByZXNzaW5nICpDdHJsK0FsdCtJKi4KCldoZW4geW91IHNhdmUgdGhlIG5vdGVib29rLCBhbiBIVE1MIGZpbGUgY29udGFpbmluZyB0aGUgY29kZSBhbmQgb3V0cHV0IHdpbGwgYmUgc2F2ZWQgYWxvbmdzaWRlIGl0IChjbGljayB0aGUgKlByZXZpZXcqIGJ1dHRvbiBvciBwcmVzcyAqQ3RybCtTaGlmdCtLKiB0byBwcmV2aWV3IHRoZSBIVE1MIGZpbGUpLgoKVGhlIHByZXZpZXcgc2hvd3MgeW91IGEgcmVuZGVyZWQgSFRNTCBjb3B5IG9mIHRoZSBjb250ZW50cyBvZiB0aGUgZWRpdG9yLiBDb25zZXF1ZW50bHksIHVubGlrZSAqS25pdCosICpQcmV2aWV3KiBkb2VzIG5vdCBydW4gYW55IFIgY29kZSBjaHVua3MuIEluc3RlYWQsIHRoZSBvdXRwdXQgb2YgdGhlIGNodW5rIHdoZW4gaXQgd2FzIGxhc3QgcnVuIGluIHRoZSBlZGl0b3IgaXMgZGlzcGxheWVkLgo=